home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / AGELIST.T < prev    next >
Text File  |  1991-02-16  |  2KB  |  33 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : compute age of file list for a remote board
  7.  display inhibit;if r nolog close
  8.  ki;if !f%n7/%remote.lst set s0 32767;display noinhibit;return
  9.  set s0 0;if !%tmp display noinhibit;return
  10.  ena -y >%tmp/scratch.wrk;dird %n7/%remote.lst;>
  11.  if !f%tmp/scratch.wrk display noinhibit;return
  12.  set z1 "";open %tmp/scratch.wrk;grab z1;if t nolog closetx
  13.  del %tmp/scratch.wrk;split z1 " " " " " " "-" "-"
  14.  display noinhibit
  15.  : Date of last file listing: z3 = Month, z4 = Day, z3 = Year
  16.  setn z0 z5+0;setn z1 z3+0;setn z2 z4+0;if az0<80 setn z0 z0+100
  17.  : Date of last file listing: z0 = Year, z1 = Month, z2 = Day
  18.  setn z3 z0/4*4;setn z4 z0-1/4;setn z9 z0*365+z4+z2
  19.  ife az1>1 setn z9 z9+31;if az1>2 setn z9 z9+28;if Iz0,z3 setn z9 z9+1
  20.  ife az1>3 setn z9 z9+31;ife az1>4 setn z9 z9+30;if az1>5 setn z9 z9+31
  21.  ife az1>6 setn z9 z9+30;ife az1>7 setn z9 z9+31;if az1>8 setn z9 z9+31
  22.  ife az1>9 setn z9 z9+30;ife az1>10 setn z9 z9+31;if az1>11 setn z9 z9+30
  23.  sets s0 %z9;split t " " "-" "-"
  24.  setn z0 z3+0;setn z1 z1+0;setn z2 z2+0;if az0<80 setn z0 z0+100
  25.  : Current date: z0 = Year, z1 = Month, z2 = Day
  26.  setn z3 z0/4*4;setn z4 z0-1/4;setn z9 z0*365+z4+z2
  27.  ife az1>1 setn z9 z9+31;if az1>2 setn z9 z9+28;if Iz0,z3 setn z9 z9+1
  28.  ife az1>3 setn z9 z9+31;ife az1>4 setn z9 z9+30;if az1>5 setn z9 z9+31
  29.  ife az1>6 setn z9 z9+30;ife az1>7 setn z9 z9+31;if az1>8 setn z9 z9+31
  30.  ife az1>9 setn z9 z9+30;ife az1>10 setn z9 z9+31;if az1>11 setn z9 z9+30
  31.  setn s0 z9-s0
  32.  return
  33.